home *** CD-ROM | disk | FTP | other *** search
/ Business Assistant / Business Assistant.iso / acctg / db3ledge / enter2.prg < prev    next >
Encoding:
Text File  |  1986-01-12  |  927 b   |  46 lines
  1. SET HEADING OFF
  2. SET SAFETY OFF
  3. *************************** (ENTER2.PRG)--JAY KENNEY
  4. CLEAR
  5. SET BELL OFF
  6. SET TALK OFF
  7. SET CONFIRM ON
  8. SET EXACT ON
  9. STORE ' ' TO OPTION
  10. @ 15,23 SAY 'Do you want to enter a payable ? '
  11. ?
  12. WAIT '                                    ? ' TO OPTION
  13. IF OPTION<>'Y'
  14. RETURN
  15. ENDIF
  16. USE PAY
  17. DO WHILE .T.
  18. CLEA
  19. APPEND BLAN
  20. @ 12,1 SAY 'Account   ' GET ACCT
  21. @ 12,19 SAY 'Inv. number ' GET INV
  22. @ 12,48 say 'Notes ' get notes
  23. @ 14,1 SAY 'Inv. date ' GET DATE
  24. @ 14,26 SAY 'Due date ' GET DUEDATE
  25. @ 14,51 SAY 'Orig.amt. ' GET NET
  26. READ
  27. @ 23,25 SAY 'Is this correct? '
  28. WAIT '                              ?  ' TO OPTION
  29. IF OPTION<>'Y'
  30. CLEA
  31. @ 15,25 SAY 'Press Ctrl W when finished editing... '
  32. EDIT
  33. RETURN
  34. ENDIF
  35. STORE 0 TO Z
  36. STORE ACCT TO Z
  37. USE VEND
  38. STORE '                       ' TO MNAME
  39. LOCA FOR ACCT=Z
  40. STORE NAME TO MNAME
  41. USE PAY
  42. GO BOTT
  43. REPL NAME WITH MNAME
  44. ENDDO
  45. RETURN
  46.